\version "2.24.0"
date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "I Wanna Dance With Somebody (Who Loves Me)"
  composer = ""
  tagline = \markup {\bold \date}
  %tagline = \markup \bold{ 28 May 2023 }
}

% music pieces
%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \relative c' {
    \key f \major
    \time 4/4

    a''4 <a c> r a8. a16 |
    g8 f4 g8 f a g4 |
    a4 <a c> r a8. a16 |
    g8 f4 g8 f a g f |
    a4 <a c> r a8. a16 |
    g8 f4 g8 f a g4 |
    f4 <a c> r r8 f16 f |
    f8 g a g~ g4 f |
    f4 <a c> r2 |
    a8 g f f r2 |

    \mark 11
    \repeat volta 2 {
      r8^Verse g, c4 c r8 c |
      c4 c8 d ~ d4 e8 e |
      f4 e8 f ~ f a4 d,8 ~ |
      d8 r r4 r2 |
      r8 g, c8. c16 d8 c4 c8 |
      d4 c8 d ~ d4 e8 e |
      f4 e8 f ~ f a4 d,8 ~ |
      d2 r |

      \mark 19
      r8^\markup{ \abs-fontsize #20 \segno } bes' bes bes bes( a4) a8 ~ |
      a8 g4 g8 ~ g4 c,8 c |
      a'4 a8 c ~ c a4 g8 ~ |
      g8 a4 f8 ~ f r r c |
      bes'4 bes8 a ~ a g4. ~ |
      g4. g8 \times 2/3 { a4 g a } |
      f2 r |
      \bar "||"

      \mark 26
      r4^Chorus a ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r4 r8 a a16 a a8 a c |
      r8 f, f f ~ f g r4 |
      r4 a ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r2 f4 f |
      f8 g a g ~ g4 f |
      r4 a4 ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r4 r8 a a16 a a8 a c |
      r8 f, f f ~ f g r4 |
      r4 a ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r2 f4^\markup{ \abs-fontsize #14 "to Coda" \abs-fontsize #20 \coda } f |
    }
    \alternative {
      {
        f8 g a g ~ g4 f ~ |
        f2. r4 |
        R1 |
      }
      {
        f8 g a g ~ g4 f8. a16 ~ |
      }
    }

    % TODO expand repeat
      a8 a16 a r8 <a d> ~ <a d>4 r8. a16 ~ |
      a8 a16 a r8 <a d> ~ <a d>2 |
        r4 a8 c ~ c a a c ~ |
        c4 a r r8 a ~
      a8 a16 a r8 <a d> ~ <a d>4 r8. a16 ~ |
      a8 a16 a r8 <a d> ~ <a d>2 |
        r4 a8 c ~ c4 a8 d ~ |
    d4 a8 c ~ c4^\markup{ \abs-fontsize #14 "D.S. al Coda" } r |
    \bar "||"
    \break

    \repeat volta 2 {
      f,8^\markup{ \abs-fontsize #20 \coda } g a g ~ g4 f |
      r4 a ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r4 r8 a a16 a a8 a c |
      r8 f, f f ~ f g r4 |
      r4 a ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r2 f4 f |
      f8 g a g ~ g4 f |
      r4 a4 ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r4 r8 a8 a16 a a8 a c |
      r8 f, f f ~ f g r4 |
      r4 a ~ a8 a a16 a a8 ~ |
      a8 f f f ~ f g r4 |
      r2 f4 f |
      f8 g a g ~ g4 f |
    }

    R1 |
    \bar "|."
  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \relative c' {
    \key f \major
    \time 4/4

    <c' f>1 |
    <a c>1 |
    <c f>1 |
    <a c>1 |
    <c f>1 |
    <a c>1 |
    <bes d>1 |
    <bes d>4 <c e> <bes d> <bes c> |
    <a c>1 |
    f'8 <c e> c <a c> r4 <f' a>8 <e g>~ |

    \mark 11
    \repeat volta 2 {
      <e g>8^Verse r r4 r2 |
      R1 |
      <a, d>4 r r2 |
      r8 a' f d bes d <c f> <e g>~ |
      <e g>8 r r4 r2 |
      R1 |
      <a, d>1 |
      r2 <d f>8 <e g> <f a>4 |

      \mark 19
      <d g>2.^\markup{ \abs-fontsize #20 \segno } r8 <c f> ~ |
      <c f> <c e>4 <c e>8 ~ <c e>4 c8 c |
      <c f>2 r8 <c e>4 <c e>8 ~ |
      <c e>8 <c f>4 <bes d>8 ~ <bes d> <e g> <f a> c |
      <d f>4 bes'8 <c, f> ~ <c f> <c e>4. ~ |
      <c e>2 r |
      d8 c d <e g> r2 |
      \bar "||"

      \mark 26
      r4^Chorus <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c a> ~ <c a> r r4 |
      <c a'>8. <c a'>16 r8 <c f> <c f>16 <c f> <c f>8 <c f> <f a> |
      r4 r8 <c a> ~ <c a> r r4 |
      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c d> ~ <c d> r r4 |
      <d f a>8. <d f a>16 r4 <bes d> <bes d> |
      <bes d>8 r r <bes d> ~ <bes d>4 <bes c> |

      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c a> ~ <c a> r r4 |
      <c a'>8. <c a'>16 r8 <c f> <c f>16 <c f> <c f>8 <c f> <f a> |
      r4 r8 <c a> ~ <c a> r r4 |
      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c d> ~ <c d> r r4 |
      <d f a>8. <d f a>16 r4 <bes d>^\markup{ \abs-fontsize #14 "to Coda" \abs-fontsize #20 \coda } <bes d> |
    }
    \alternative {
      {
        <bes d>4 <c e> <bes d> <bes c> |
        <a c>2. r8 c |
        <f a>8 <c e g> <c f> <a c f> r4 <f' a>8 <e g> \laissezVibrer |
      }
      {
        <bes d>4 <c e> <bes d> <bes c> |
      }
    }

    % TODO expand repeat
      <c e>8 <c e> r4 <c e>8. <d f>16 r4 |
      <c e>8 <c e> r4 <c e>8. <d f>16 r4 |
        <c e>8. <c e>16 r4 r2 |
        <c e>8. <c e>16 r4 <bes d> <c e>8. r16 |
      <c e>8 <c e> r4 <c e>8. <d f>16 r4 |
      <c e>8 <c e> r4 <c e>8. <d f>16 r4 |
        <c e>8. <c e>16 r4 r2 |
    <c e>8. <c e>16 r4 <e g>8.^\markup{ \abs-fontsize #14 "D.S. al Coda" } <d f>16 ~ <c f>8 <e g> |

    \bar "||"
    \break
    <bes d>4^\markup{ \abs-fontsize #20 \coda } <c e> <bes d> <bes c> |

    \repeat volta 2 {
      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c a> ~ <c a> r r4 |
      <c a'>8. <c a'>16 r8 <c f> <c f>16 <c f> <c f>8 <c f> <f a> |
      r4 r8 <c a> ~ <c a> r r4 |
      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c d> ~ <c d> r r4 |
      <d f a>8. <d f a>16 r4 <bes d> <bes d> |
      <bes d>8 r r <bes d> ~ <bes d>4 <bes c> |

      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c a> ~ <c a> r r4 |
      <c a'>8. <c a'>16 r8 <c f> <c f>16 <c f> <c f>8 <c f> <f a> |
      r4 r8 <c a> ~ <c a> r r4 |
      r4 <c f> ~ <c f>8 r r <c f> ~ |
      <c f>8 r r <c d> ~ <c d> r r4 |
      <d f a>8. <d f a>16 r4 <bes d> <bes d> |
      <bes d>4 <c e> <bes d> <bes c> |
    }

    <a c>1 |
    \bar "|."

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers
  \set Score.dalSegnoTextFormatter = #format-dal-segno-text-brief
  \relative c {
    \key f \major
    \time 4/4

    f,8. f16 d8 f r4 d |
    f8. f16 ~ f8 f f4 f |
    f8. f16 d8 f r4 d |
    f8. f16 ~ f4 f' e |
    d8. d16 a8 d r4 a |
    d8. d16 ~ d8 a d4 c |
    bes8. bes16 ~ bes8 bes r4 bes |
    g4 a bes c |
    f,8. f16 d8 f r4 d |
    f8 d c f r2 |

    \mark 11
    \repeat volta 2 {
      c'8.^Verse c16 a8 c r4 r8 g |
      c8. c16 ~ c8 c r4 c |
      d8. d16 c8 d r4 r8 c |
      d8. d16 c8 d <g,f'>4 <a f'> |
      c8. c16 a8 c r4 r8 a |
      c8. c16 ~ c8 c r4 c |
      d8. d16 c8 d r4 r8 c |
      d8. d16 ~ d8 c d4 a |

      \mark 19
      g4^\markup{ \abs-fontsize #20 \segno } r8 r16 g g8 a bes c ~ |
      c4. c8 c4 c8 bes |
      a4 r8 r16 a a8 g a bes ~ |
      bes4. bes8 bes4 a |
      g4. a8 ~ a d4. ~ |
      d1 |
      bes8 a bes c r4 c, |
      \bar "||"

      \mark 26
      f8.^Chorus f16 d8 f r4 d |
      f8. f16 ~ f8 f r4 c |
      f8. f16 d8 f r4 d |
      f8. f16 ~ f4 f'4 e |
      d8. d16 a8 d r4 a |
      d8. d16 ~ d8 d d4 c |
      bes8. bes16 ~ bes8 bes r4 bes |
      bes8. bes16 ~ bes4 bes c |
      f,8. f16 d8 f r4 d |
      f8. f16 ~ f8 f r4 c |
      f8. f16 d8 f r4 d |
      f8. f16 ~ f4 f'4 e |
      d8. d16 a8 d r4 a |
      d8. d16 ~ d8 d d4 c |
      bes8. bes16 ~ bes8 bes r4^\markup{ \abs-fontsize #14 "to Coda" \abs-fontsize #20 \coda } r8 bes16 a |
    }
    \alternative {
      {
        g4 a bes c |
        f,8. f16 d8 f r4 d |
        f8 d c f r2 |
      }
      {
        g4 a bes c |
      }
    }

    % TODO expand repeat
      d8. d16 c8 d r2 |
      d8. d16 ~ d8 d r4 d |
        c8. c16 a8 c r2 |
        c8. c16 c4 g a |
      d8. d16 c8 d r2 |
      d8. d16 ~ d8 d r4 d |
        c8. c16 a8 c r2 |
    c8. c16 r4 c8.^\markup{ \abs-fontsize #14 "D.S. al Coda" } bes16 ~ bes8 a |

    \bar "||"
    \break
    g4^\markup{ \abs-fontsize #20 \coda } a bes c |
    \repeat volta 2 {
      f,8. f16 d8 f r4 d |
      f8. f16 ~ f8 f r4 c |
      f8. f16 d8 f r4 d |
      f8. f16 ~ f4 f' e |
      d8. d16 a8 d r4 a |
      d8. d16 ~ d8 d d4 c |
      bes8. bes16 ~ bes8 bes r4 bes |
      bes8. bes16 ~ bes4 bes c |
      f,8. f16 d8 f r4 d |
      f8. f16 ~ f8 f r4 c |
      f8. f16 d8 f r4 d |
      f8. f16 ~ f4 f' e |
      d8. d16 a8 d r4 a |
      d8. d16 ~ d8 d d4 c |
      bes8. bes16 ~ bes8 bes r4 r8 bes16 a |
      g4 a bes c |
    }

    f,1 |
    \bar "|."

  }
}

theLyrics = \lyricmode {
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _ _

  The clock strikes up -- on the hour when the sun be -- gins to fade.
  There's still e -- nough time to fig -- ure out how to chase my blues a -- way.
  I've done al -- right up til now; it's the light of day that shows me how.
  But when the night falls my lone -- li -- ness calls.
  Oh, I wan -- na dance with some -- bod -- y.
  I wan -- na feel the heat with some -- bod -- y.
  Yeah, I wan -- na dance with some -- bod -- y,
  with some -- bod -- y who loves me.

  Oh, I wan -- na dance with some -- bod -- y.
  I wan -- na feel the heat with some -- bod -- y.
  Yeah, I wan -- na dance with some -- bod -- y,
  with some -- bod -- y who loves me.

  bod -- y who loves me. (Some -- bod -- y who some -- bod -- y who)
  Some -- bod -- y who loves me. (Some -- bod -- y who some -- bod -- y who)

  To hold me in his arms.

  bod -- y who loves me.
  Oh, I wan -- na dance with some -- bod -- y.
  I wan -- na feel the heat with some -- bod -- y.
  Yeah, I wan -- na dance with some -- bod -- y,
  with some -- bod -- y who loves me.
  Oh, I wan -- na dance with some -- bod -- y.
  I wan -- na feel the heat with some -- bod -- y.
  Yeah, I wan -- na dance with some -- bod -- y,
  with some -- bod -- y who loves me.

}

theLyricsTwo = \lyricmode {
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _ _ _ _

  I've been_in love and lost my sens -- es _ spin -- ning through the town.
  Soon -- er or lat -- er the fe -- ver ends, and I wind up feel -- ing down.
  I need a man who'll_take a chance on a love that burns hot enough to last.
  So when the night falls my lone -- ly heart calls.
}

theChords = \chordmode {
  | f1
  | f
  | f
  | f
  | d:m7
  | d:m7
  | bes:9
  | g4:m7 a:m bes:6 c:7
  | f1
  | f
  | c
  | c
  | d:m
  | d2:m g4:m7 f/a
  | c1
  | c
  | d:m
  | d:m
  | g2..:m f8/c
  | f8 c2..
  | f2../a c8/bes
  | c8/bes f4/bes bes8 bes2
  | g4.:m7 f4/a c4./d
  | c1/d
  | bes8 f/a bes c c2
  | f1
  | f
  | f
  | f
  | d:m7
  | d:m7
  | bes:7
  | bes2.:7 c4:7
  | f1
  | f
  | f
  | f
  | d:m7
  | d:m7
  | bes:7
  | g4:m7 a:m bes:6 c:7
  | f1
  | f
  | g4:m7 a:m bes:6 c:7
  | d1:m9
  | d:m9
  | c1
  | c2 g4:m a:m
  | c1
  | c2 c8 bes4 a8:m7
  | g4:m7 a:m bes:6 c:7
  | f1
  | f
  | f
  | f
  | d:m7
  | d:m7
  | bes:7
  | bes2.:7 c4:7
  | f1
  | f
  | f
  | f
  | d:m7
  | d:m7
  | bes:7
  | g4:m7 a:m bes:6 c:7
  | f1

}

%layout

\book {
  \score {
    <<
      \tempo 4 = 100
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "C-Score")
\book {
  \paper { }
  \header { instrument = "C / do" }
  \score {
    \new StaffGroup
    <<
      \new ChordNames { \set chordChanges = ##t \theChords }
      \new Voice = "melody" { \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      \new Lyrics \lyricsto "melody" { \theLyricsTwo }
      \new Staff { \harmony }
      \new Staff { \clef bass \bass }
    >>
  }
}

#(define output-suffix "C-Score-bass-clef")
\book {
  \paper { }
  \header { instrument = "C / do" }
  \score {
    \new StaffGroup
    <<
      \new ChordNames { \set chordChanges = ##t \theChords }
      \new Voice = "melody" { \clef bass \transpose c c,, \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      \new Lyrics \lyricsto "melody" { \theLyricsTwo }
      \new Staff { \clef bass \transpose c c,, \harmony }
      \new Staff { \clef bass \bass }
    >>
  }
}

#(define output-suffix "C-bass-clef-harmony-bass")
\book {
  \paper { }
  \header { instrument = "C / do" }
  \score {
    \new StaffGroup
    <<
      \new Staff { \clef bass \transpose c c,, \harmony }
      \new Staff { \clef bass \bass }
    >>
  }
}

#(define output-suffix "C-bass-clef-bass")
\book {
  \paper { }
  \header { instrument = "C / do" }
  \score {
    \new StaffGroup
    <<
      \new Staff { \clef bass \bass }
    >>
  }
}

#(define output-suffix "Bflat-Score")
\book {
  \paper { }
  \header { instrument = "B flat / si bémol" }
  \score {
    \new StaffGroup
    <<
      \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
      \new Voice = "melody" { \transpose bes c \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      \new Lyrics \lyricsto "melody" { \theLyricsTwo }
      \new Staff { \transpose bes c \harmony }
      \new Staff { \transpose bes c''' \bass }
    >>
  }
}

#(define output-suffix "Bflat-melody-harmony")
\book {
  \paper { }
  \header { instrument = "B flat / si bémol" }
  \score {
    \new StaffGroup
    <<
      \new Voice = "melody" { \transpose bes c \melody }
      %\new Lyrics \lyricsto "melody" { \theLyrics }
      %\new Lyrics \lyricsto "melody" { \theLyricsTwo }
      \new Staff { \transpose bes c \harmony }
    >>
  }
}

#(define output-suffix "Eflat-Score")
\book {
  \paper { }
  \header { instrument = "E flat / mi bémol" }
  \score {
    \new StaffGroup
    <<
      \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
      \new Voice = "melody" { \transpose ees c \melody }
      \new Lyrics \lyricsto "melody" { \theLyrics }
      \new Lyrics \lyricsto "melody" { \theLyricsTwo }
      \new Staff { \transpose ees c \harmony }
      \new Staff { \transpose ees c'' \bass }
    >>
  }
}

#(define output-suffix "Eflat-melody-harmony")
\book {
  \paper { }
  \header { instrument = "E flat / mi bémol" }
  \score {
    \new StaffGroup
    <<
      \new Voice = "melody" { \transpose ees c \melody }
      \new Staff { \transpose ees c \harmony }
    >>
  }
}

#(define output-suffix "Eflat-harmony-bass")
\book {
  \paper { }
  \header { instrument = "E flat / mi bémol" }
  \score {
    \new StaffGroup
    <<
      \new Staff { \transpose ees c \harmony }
      \new Staff { \transpose ees c'' \bass }
    >>
  }
}

#(define output-suffix "Eflat-bass")
\book {
  \paper { }
  \header { instrument = "E flat / mi bémol" }
  \score {
    \new StaffGroup
    <<
      \new Staff { \transpose ees c'' \bass }
    >>
  }
}